home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / tcp / Tango.lha / tangoﾟ / Install_Tango < prev    next >
Text File  |  2000-05-02  |  3KB  |  82 lines
  1. ;Tango 1.0 installation script
  2.  
  3. (set #bye (cat "\nTango Install Complete!\nYou will find tango in Samba:\n" ))
  4. (set #info (cat "\n\nWelcome to Tango.\n\nThis will install Tango in Samba:\n\na new directory 'Tango' will be created.\n\n") )
  5.  
  6. (message #info)
  7.  
  8. (if (= (exists "samba:tango") 0 )  (makedir "Samba:Tango") )
  9.  
  10. ;copy main
  11. (copyfiles (source "Tango")   (dest "samba:Tango")    (infos) (all))
  12.  
  13. ;copy drawer icon
  14. (copyfiles    (prompt "Copying drawer icon")    (source "Tango.info")    (dest "Samba:") )
  15.  
  16. ;copy catalogs
  17. ;(copyfiles (source "Locale")   (dest "sys:Locale")    (infos) (all))
  18.  
  19. (set #catnofind "Can not find this catalog in this  archive.")
  20. (set #whatcat "\nTango has no internal catalog.\nSelect the Language catalog you wish to install.\nThat language has to be selected in Prefs:Locales ")
  21. (set #whatcathelp "If your language is not among the choises,\nYou must choose another language.")
  22.  
  23.  
  24.  
  25. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  26. (set lan 0)
  27. (if (= "english" lanfound) (set lan 0))  (if (= "deutsch"  lanfound) (set lan 1))
  28. (if (= "svenska" lanfound) (set lan 2)) (if (= "español" lanfound) (set lan 3)) 
  29.  
  30. (set #English    "English")  (set #Deutsch    "Deutsch")
  31. (set #Svenska    "Svenska")  (set #Español    "Español")
  32.  
  33.  
  34. (if (> (exists ("ENV:i.høld.0")) 0)   (set l0 (getenv "ENV:i.høld.0")) ) 
  35. (if (> (exists ("ENV:i.høld.1")) 0)   (set l1 (getenv "ENV:i.høld.1")) )
  36. (if (> (exists ("ENV:i.høld.2")) 0)   (set l2 (getenv "ENV:i.høld.2")) )
  37. (run "delete env:i.høld.#?")
  38. (set catalog (askchoice (choices  "English" "Deutsch" "Svenska" "Español")            
  39.                         (prompt #whatcat )
  40.                         
  41.                     (help   #whatcathelp)
  42.                         (default lan)
  43.              )
  44. )
  45.  
  46. (if (= catalog 0)  (set #lcat #English))  
  47. (if (= catalog 1)  (set #lcat #Deutsch))
  48. (if (= catalog 2)  (set #lcat #Svenska))  
  49. (if (= catalog 3)  (set #lcat #Español))  
  50.  
  51. (if (<> #lcat "N/A")
  52.  (
  53.       (if (> (exists (cat "Locale/Catalogs/" #lcat "/tango.catalog")) 0)
  54.       (
  55.         (
  56.          (if (< (exists "Locale:") 2) ( (makedir "sys:Locale") (makeassign "Locale" "sys:Locale") ) )
  57.          (if (< (exists "Locale:Catalogs") 2) (makedir "sys:Locale/Catalogs") )
  58.          (if (< (exists (cat "Locale:Catalogs/" #lcat)) 2) (makedir (cat "sys:Locale/Catalogs/" #lcat)) )
  59.          (copyfiles (source (cat "locale/Catalogs/" #lcat )) (dest (cat "sys:Locale/Catalogs/" #lcat)) (all) )
  60.         )
  61.   
  62.  
  63.       )
  64.  
  65.  
  66.   (message (cat "\nCatalogs/" #lcat "/tango.catalog\n\n" #catnofind))
  67.   )
  68.  
  69.  
  70. ); End if Catalog dir
  71.   (message (cat "Error:" "\nCatalogs/" #lcat "/tango.catalog\n\n" #catnofind))
  72. ); 
  73.  
  74.  
  75.  
  76. (if (> (exists ("c:multiview")) 0) (set #path "c:") )
  77. (if (> (exists ("sys:Utilities/multiview")) 0) (set #path "sys:Utilities") )
  78. (run (cat "run " #path "/multiview tango/readme_beta") )
  79.  
  80. (exit #bye (quiet))
  81.  
  82.